# start
# -  Logon Macro for pro-colony

# - set up modem
set timer 5
xmit "ATS7=50^M"
set duplex full
set baud 1200
waitfor string "ok"
pause 5

# - see note below on changing this macro to dial tone or pulse only.

# window
display "^LCalling: pro-colony ^J^J^M"
display "To dial Pulse type `P`, or ^J^M"
display "Any other key to dial Touch-Tone^J^M"
display "Enter --> "

# - dial tone or pulse?
waitfor keyboard
if keyboard p goto pulse
if keyboard ^[ goto abort
goto tone

# - display pulse screen
# Pulse
display "^MNow Dialing with Pulse^J^M"
xmit "ATDP 1 214 370 7056 ^M"
set timer 60
goto begin

# - display tone screen
# Tone
display "^MNow Dialing with Touch-Tone^J^M"
xmit "ATDT 1 214 370 7056 ^M"
set timer 60
goto begin

# begin
waitfor string "connect"
if failed goto restart
buffer on

# - prompt for user name
waitfor string "login:"
xmit "datalink^M"
stop

# restart
hangup
display "^MNo answer or busy. Press a key to continue"
waitfor keyboard
goto window

# abort
display "^MPress <esc> to quit or any other key to continue"
waitfor keyboard
if keyboard ^[ goto exit
goto window
# exit
display "^L"
stop
